home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d14 / clock.arc / CLOCK.GBL < prev    next >
Text File  |  1991-07-02  |  2KB  |  72 lines
  1. DefInt A-Z
  2. '
  3. ' Window API Function Declarations
  4. '
  5. Declare Function GetPrivateProfileInt Lib "Kernel" (ByVal Appname As String, ByVal KeyName As String, ByVal DEFAULT As Integer, ByVal FileName As String)
  6. Declare Function GetPrivateProfileString Lib "Kernel" (ByVal Appname As String, ByVal KeyName As String, ByVal DEFAULT As String, ByVal ReturnedString As String, ByVal MaxSize, ByVal FileName As String)
  7. Declare Function WritePrivateProfileString Lib "Kernel" (ByVal Appname As String, ByVal KeyName As String, ByVal NewString As String, ByVal FileName As String)
  8.  
  9.  
  10. Global Const True = -1
  11. Global Const False = Not True
  12.  
  13. Global Const TimeDefault = 1
  14. Global Const DateDefault = 1
  15. Global Const MonthDefault = 1
  16. Global Const DayDefault = 1
  17. Global Const YearDefault = 1
  18. Global Const DayNameDefault = 1
  19. Global Const SepDefault = 1
  20. Global Const SecondsDefault = 0
  21. Global Const TitleDefault = "Click The Date"
  22. Global Const TopDefault = 5625
  23. Global Const LeftDefault = 360
  24. Global Const BGDefault = 13
  25. Global Const FGDefault = 0
  26.  
  27. Global PrefTime As Integer
  28. Global PrefDate As Integer
  29. Global PrefMonth As Integer
  30. Global PrefDay As Integer
  31. Global PrefYear As Integer
  32. Global PrefDayName As Integer
  33. Global PrefSeparator As Integer
  34. Global PrefSeconds As Integer
  35. Global PrefTitle As String * 15
  36. Global PrefTop As Integer
  37. Global PrefLeft As Integer
  38. Global PrefFG As Single
  39. Global PrefBG As Single
  40. Global CurrGround As Integer
  41. Global TempFG As Integer
  42. Global TempBG As Integer
  43. '
  44. ' INI file KeyNames
  45. '
  46. Global Const APP_NAME = "Clock"
  47. Global Const INI_Time = "Time"
  48. Global Const INI_Date = "Date"
  49. Global Const INI_Month = "Month"
  50. Global Const INI_DayName = "Dayname"
  51. Global Const INI_Day = "Day"
  52. Global Const INI_Year = "Year"
  53. Global Const INI_Seconds = "Seconds"
  54. Global Const INI_Separator = "Separator"
  55. Global Const INI_Title = "Title"
  56. Global Const INI_FILENAME = "Clock.INI"
  57. Global Const INI_Top = "Top"
  58. Global Const INI_Left = "Left"
  59. Global Const INI_Fore = "Fore"
  60. Global Const INI_Back = "Back"
  61.  
  62.  
  63.  
  64.  
  65.  
  66.  
  67.  
  68.  
  69.  
  70.  
  71.  
  72.